100 POKE53280,0:POKE53281,0:POKE 650,128:PRINT"[147]":PRINT CHR$(14)
110 PRINT"[159]             [211]ECURITY [214]2.00[157][157][157][157][157][157][157][157][157][157][157][157][157][157][158][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
200 PRINT"      [208]LEASE ENTER THE TIME [200][200][205][205][211][211][157][157][157][157][157][157]";
300 FOR X = 1 TO 6
400 GET A$(X):IF A$(X)=""THEN GOTO 400
500 IFASC(A$(X))<48ORASC(A$(X))>57 THEN GOTO 400
600 PRINT A$(X);
700 NEXT X
800 T$=A$(1)+A$(2)+A$(3)+A$(4)+A$(5)+A$(6)
900 IF VAL(T$)>235959ORVAL(T$)<000000ORLEN(T$)<>6 THEN GOTO 200
1000 IF  VAL(LEFT$(T$,2))>23THEN GOTO 200
1100 IF VAL(MID$(T$,3,2))>59THEN GOTO 200
1200 IF VAL(RIGHT$(T$,2))>59THEN GOTO 200
1250 PRINT:PRINT"       [208]RESS A KEY TO START CLOCK."
1260 GET L$:IF L$ = "" THEN GOTO 1260
1300 TI$=T$
1310 PRINT
1400 PRINT TAB(16)"[212]IME SET.":FOR X = 1 TO 2000:NEXT X:PRINT"[147]"
1500 PRINT"[208]LUG THE WIRE INTO PORT #1 AND CLOSE    THE DOOR.";
1700 IF PEEK(145)=255 THEN GOTO 1700
1800 PRINT"[147][196]OOR SHUT. [211]CANNING........."
1900 IFPEEK(145)=247THENGOTO2100
2000 GOTO 3100
2100 IFPEEK(56320)=111THEN GOTO 2300
2200 GOTO 1900
2300 PRINT"[208]RESSURE PAD DEPRESSED AT ";TI$
2400 IF PEEK(56320)=111THENGOTO 2400
2500 GOTO 1900
2600 REM
2700 REM *******************************
2800 REM *           CHECK!            *
2900 REM *******************************
3000 REM
3100 B = B + 1
3200 Q$=TI$
3300 PRINT"[194]REAK IN NO.";B;"STARTED AT ";Q$
3400 IFPEEK(145)=247THENPRINT"[194]REAK IN NO.";B;"FINISHED AT ";TI$
3450 IFPEEK(145)=247THENW=VAL(TI$)-VAL(Q$):GOTO 4000
3500 IFPEEK(56320)=111THEN GOTO 3700
3600 GOTO 3400
3700 PRINT"[208]RESSURE PAD DEPRESSED AT ";TI$
3800 IF PEEK(56320)=111THENGOTO 3800
3900 GOTO 3400
4000 PRINT"[204]ENGTH OF BREAK IN WAS ";W:GOTO 4400
4100 GOTO 4300
4200 PRINT"[204]ENGTH OF BREAK IN WAS ";W:GOTO 4400
4300 GOTO 3400
4400 GOTO 1900